home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
bounce.zip
/
WMOUSE.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-11-21
|
2KB
|
101 lines
;-------------------------------------------------
DGroup Group DataSeg
DataSeg Segment word public 'data'
assume cs:nothing, ds:DGroup
DataSeg ends
;-------------------------------------------------
Windows segment word
assume cs:Windows,ds:DGroup
;LOCAL DATA
;========================================================================
Public ShowM
ShowM Proc Far
mov ax,1
int 33h
ret
ShowM Endp
;=========================================================================
Public HideM
HideM Proc Far
mov ax, 2
int 33h
ret
HideM Endp
;=========================================================================
Public MButton
MButton Proc Far ;l%, r%
push bp
mov bp,sp
mov ax,3
int 33h
mov dx,bx
and bx,1
not bx
inc bx
mov si,[bp+8] ;l% bit 0
mov [si],bx
shr dx,1
and dx,1
not dx
inc dx
mov si,[bp+6] ;r% bit 1
mov [si],dx
pop bp
ret 4
MButton EndP
;=========================================================================
Public MLoc
MLoc Proc Far ;r%,c%
push bp
mov bp,sp
mov ax,3
int 33h
mov si,[bp+6] ;col 0-639
mov [si],cx
mov si,[bp+8] ;r% 0-199
mov [si],dx
pop bp
ret 4
MLoc EndP
;=========================================================================
Public SetMLoc
SetMLoc Proc Far ;r%,c%
push bp
mov bp,sp
mov si,[bp+6] ;col 0-639
mov cx,[si]
mov si,[bp+8] ;r% 0-199
mov dx,[si]
mov ax,4
int 33h
pop bp
ret 4
SetMLoc EndP
;=========================================================================
Public InitM
InitM Proc Far ;(present%)
push bp
mov bp,sp
mov ax,0
int 33h
mov si,[bp+6]
mov [si],ax ;0 not installed -1 installed
pop bp
ret 2
InitM Endp
;=========================================================================
Windows ends
END